home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0643A.ZIP / BETDAT.PRG next >
Text File  |  1987-04-24  |  3KB  |  84 lines
  1. * Program..:  Betdates.prg
  2. * Author...:  Martin Schiff
  3. * Date.....:  February 6,1987
  4. * Notice...:  Custom Data Solutions, 1987, All rights reserved.
  5. * Notes....:  Betdates.prg 
  6. * 
  7. * This routine will take as input a start date and a finish date, and return
  8. * the number of months and additional days between the 2 dates.  The
  9. * routine actually figures the number of nights since it is for the travel
  10. * industry, but could be easily modified to measure the span including the 
  11. * start and finish date.  The number of months is returned in tMONTHS, and
  12. * the number of days extra in tDAYS.
  13. * 
  14. * If you run the program with talk set on, and you watch the dates change
  15. * using a date with 31 for the you will notice that as the program executes
  16. * you can see the last date of the month change from 31 to 30 and back, and
  17. * to 28 or 29 in February.
  18. *
  19. * This routine may be incorporated in your programs as long as the header 
  20. * remains intact.
  21.  
  22. PARAMETERS tMONTHS,tDAYS,START,FINISH
  23. holdate=start
  24. prevhold=start
  25. dofdep=finish             && dofdep -- date of departure
  26. periods=0
  27. xdays=0
  28. needtest=.f.
  29. if day(start)>28
  30.   needtest=.t.
  31. endif
  32. changed=.f.
  33. day=substr(dtoc(holdate),4,2)    
  34. oldday=day
  35. do while holdate < dofdep    
  36.   prevhold=holdate    
  37.   if changed                   && if we have changed from the original day
  38.     day=oldday                 && change it back
  39.   else
  40.     day=substr(dtoc(holdate),4,2)    
  41.   endif
  42.   month=substr(dtoc(holdate),1,2)    
  43.   year=substr(dtoc(holdate),7,2)    
  44. ** The following routine moves you to a date one month from the date stored
  45. ** in holdate.
  46.   if month = '12'    
  47.     month='01'    
  48.     year=str((val(year)+1),2)    
  49.   else    
  50.     if needtest              && the day of the month is > 28
  51.       if val(month)=1    
  52.         changed=.t.    
  53.         oldday=day    
  54.         if mod(year(holdate),4)=0               && if it is a leapyear
  55.           day='29'        
  56.         else        
  57.           day='28'        
  58.         endif        
  59.       else    
  60.         if val(day)=31    
  61.           m=val(month)    
  62.           if m=3 .or. m=5 .or. m=8 .or. m=10         && if prev month had 30
  63.             changed=.t.                              && days
  64.             oldday=day    
  65.             day='30'    
  66.           endif    
  67.         endif    
  68.       endif        
  69.     endif
  70.     month=str((val(month)+1),2)          
  71.   endif          
  72.   holdate=ctod(month+'/'+day+'/'+year)          
  73.   if holdate <= dofdep          
  74.     periods=periods+1          
  75.   else          
  76.     xdays=dofdep-prevhold
  77.   endif          
  78. enddo        
  79. tmonths=periods      
  80. tdays=xdays      
  81.  
  82. RETURN      
  83.  
  84.